9 REM    SORCERER BOOT-JC HILTY-FEB 88
10 POKE53281,0:POKE53280,0:PRINT"[144]";
11 POKE 53271,0:POKE 53277,0
12 POKE147,0:SYS57812"DISPLAY.ML",8,1:SYS62631
13 POKE147,0:SYS57812"SORCERER.T",8,1:SYS62631:POKE53280,0:SYS49154
14 S=54272:FORX=0TO24:POKES+X,0:NEXT:POKES+5,15:POKES+24,15
15 FORFX=0TO050STEP5:POKES+4,17:FORX=5TO25STEP2:POKES+1,X+FX
16 FORT=0TO10:NEXT:NEXT
17 FORX=5TO30STEP2:POKES+1,X+FX:GET A$:IF A$="[133]"THEN23
18 NEXT:POKES+4,16:NEXTFX
19 GOTO15
23 POKES+4,16:CLR
24 POKE53265,PEEK(53265)AND207:POKE53272,(PEEK(53272)AND240)OR4
25 POKE53270,PEEK(53270)AND239:POKE53281,0:POKE646,0
26 PRINTCHR$(147);
27 PRINT"LOAD"CHR$(34)"SORCERER.EXE"CHR$(34)",8":PRINT:PRINT
28 PRINT"RUN":PRINTTAB(10)"[194]EWARE THE [211]ORCERER [144]":PRINTCHR$(19);
29 POKE 198,2:POKE631,13:POKE632,13
30 POKE 53265,PEEK(53265) OR 16
31 END